﻿Public Class Imprimir
    Inherits System.Web.UI.Page

#Region "Variaveis Globais"


    Dim clientedal As New sonicERPDAL.ClienteDAL
    Dim fornecedal As New sonicERPDAL.fornecedorDAL
    Dim nivelusuariodal As New sonicERPDAL.nivelUsuarioDAL
    Dim usuariodal As New sonicERPDAL.UsuarioDAL
    Dim entidade As New sonicERPinfo.Tabelainfo
    Dim util As New Util

#End Region
#Region "Eventos do Form"


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            If Request.QueryString("idrelatorio").ToString() = Listas.Lista_Cliente Then
                getcliente()

            ElseIf Request.QueryString("idrelatorio").ToString() = Listas.LIsta_Fornecedor Then
                getfornecedor()

            ElseIf Request.QueryString("idrelatorio").ToString() = Listas.Lista_Usuario Then
                getusuario()

            ElseIf Request.QueryString("idrelatorio").ToString() = Listas.Lista_Nivel_usuario Then
                getnivelusuario()

            End If
        End If


    End Sub

#End Region

#Region "Procedimentos Funções Enum"



    Public Sub imprimir()
        Dim javascript As String = "<script language='Javascript'>"
        javascript += "window.print()"
        javascript += "</script>"
        Page.ClientScript.RegisterClientScriptBlock(GetType(String), "Imprimir", javascript)
    End Sub

    Public Enum Listas
        Lista_Cliente = 0
        LIsta_Fornecedor = 1
        Lista_Usuario = 2
        Lista_Nivel_usuario = 3


    End Enum
    Public Sub getcliente()
        Try
            entidade.cliente.nomecliente = Convert.ToString(Request.QueryString("nome").ToString())
            If Not Request.QueryString("tipo").ToString() = Nothing Then
                entidade.cliente.tipocliente = Convert.ToString(Request.QueryString("tipo").ToString())
            Else
                entidade.cliente.tipocliente = ""
            End If
            If Request.QueryString("dtinicio").ToString() = Nothing Then
                entidade.cliente.dtinicio = Now.AddMonths(-1)
            Else

                entidade.cliente.dtinicio = Convert.ToDateTime(Request.QueryString("dtinicio").ToString())
            End If
            If Request.QueryString("dtfim").ToString() = Nothing Then
                entidade.cliente.dt_fim = Now.AddMonths(1)

            Else
                entidade.cliente.dt_fim = Convert.ToDateTime(Request.QueryString("dtfim").ToString())
            End If

            Dim dv As DataView = clientedal.getlista(entidade)
            Dim dt As DataTable = dv.ToTable()
            util.imprimir(dt)
            imprimir()

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub
    Public Sub getfornecedor()
        Try
            entidade.fornecedor.nomefornecedor = Convert.ToString(Request.QueryString("nome").ToString())
            If Not Request.QueryString("tipo").ToString() = Nothing Then
                entidade.fornecedor.tipofornecedor = Convert.ToString(Request.QueryString("tipo").ToString())
            Else
                entidade.fornecedor.tipofornecedor = ""
            End If
            If Request.QueryString("dtinicio").ToString() = Nothing Then
                entidade.fornecedor.dtinicio = Now.AddMonths(-1)
            Else

                entidade.fornecedor.dtinicio = Convert.ToDateTime(Request.QueryString("dtinicio").ToString())
            End If
            If Request.QueryString("dtfim").ToString() = Nothing Then
                entidade.fornecedor.dt_fim = Now.AddMonths(1)

            Else
                entidade.fornecedor.dt_fim = Convert.ToDateTime(Request.QueryString("dtfim").ToString())
            End If

            Dim dv As DataView = fornecedal.getfornecedor(entidade.fornecedor)
            Dim dt As DataTable = dv.ToTable()
            util.imprimir(dt)
            imprimir()

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub
    Public Sub getnivelusuario()
        Try
            entidade.nivelusuario.nivel = Convert.ToString(Request.QueryString("nome").ToString())
           
            If Request.QueryString("dtinicio").ToString() = Nothing Then
                entidade.nivelusuario.dtinicio = Now.AddMonths(-2)
            Else
                entidade.nivelusuario.dtinicio = Convert.ToDateTime(Request.QueryString("dtinicio").ToString())
            End If
            If Request.QueryString("dtfim").ToString() = Nothing Then
                entidade.nivelusuario.dt_fim = Now

            Else
                entidade.nivelusuario.dt_fim = Convert.ToDateTime(Request.QueryString("dtfim").ToString())
            End If

            Dim dv As DataView = nivelusuariodal.lista(entidade.nivelusuario)
            Dim dt As DataTable = dv.ToTable()
            util.imprimir(dt)
            imprimir()

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub
    Public Sub getusuario()
        Try
            entidade.usuario.apelido = Convert.ToString(Request.QueryString("nome").ToString())

            If Request.QueryString("dtinicio").ToString() = Nothing Then
                entidade.usuario.dtinicio = Now.AddMonths(-2)
            Else
                entidade.usuario.dtinicio = Convert.ToDateTime(Request.QueryString("dtinicio").ToString())
            End If
            If Request.QueryString("dtfim").ToString() = Nothing Then
                entidade.usuario.dt_fim = Now

            Else
                entidade.usuario.dt_fim = Convert.ToDateTime(Request.QueryString("dtfim").ToString())
            End If

            Dim dv As DataView = usuariodal.lista(entidade.usuario)
            Dim dt As DataTable = dv.ToTable()
            util.imprimir(dt)
            imprimir()

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub
#End Region

End Class